home *** CD-ROM | disk | FTP | other *** search
- on mouseUp
- global gChapter, gSection, gPage, gMaxPage, gPicture, gSeparator
- set gPicture to 0
- set gPage to gPage + 1
- if gPage <= gMaxPage then
- putOn(gPage)
- end if
- set the blend of sprite the clickOn to 30
- cleanChannels(5, 21)
- updateStage()
- if gPage <= gMaxPage then
- go(string(gChapter) & "." & string(gSection) & "." & string(gPage))
- else
- go(1, string(gChapter) & "-0")
- end if
- end
-